home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / MPW macros / getResAttrs < prev    next >
Encoding:
Text File  |  1987-01-26  |  768 b   |  31 lines  |  [TEXT/MPS ]
  1. #    This gets the resource-ID, name, and preload attributes for a def
  2. #    Version 1.1
  3.  
  4. set exit 0
  5. set rid "`request 'Resource ID?'`"
  6. echo {rid} > {MPW}scratch        #make available for outside use
  7. set rname "`request 'Resource Name?'`"
  8.  
  9. echo -n "resource ∂'{1}∂' ({rid}"
  10. if "{rname}" ≠ ""
  11.     echo -n ",∂""{rname}"∂""
  12. end
  13.  
  14. confirm 'Set Attributes? (default: Purgeable)'
  15. if {status} == 0
  16.   begin
  17.   confirm "SysHeap?" ; set sys {status}
  18.   confirm "Purgeable?" ; set pur {status}
  19.   confirm "Locked?" ; set loc {status}
  20.   confirm "Preload?" ; set pre {status}
  21.   if {sys} == 0 ; echo -n ",SysHeap" ; end
  22.   if {pur} == 0 ; echo -n ",Purgeable" ; end
  23.   if {loc} == 0 ; echo -n ",Locked" ; end
  24.   if {pre} == 0 ; echo -n ",Preload" ; end
  25.   end
  26. else
  27.   echo -n ",Purgeable"
  28. end
  29.  
  30. echo ") ∂{"
  31.